(ns jna.win.ole32
  (:use jna))

(def COINIT_APARTMENTTHREADED 0x2)
(def COINIT_MULTITHREADED     0x0)
(def COINIT_DISABLE_OLE1DDE   0x4)
(def COINIT_SPEED_OVER_MEMORY 0x8)


(deflib- ole32
  (int CoInitialize [:pointer])
  (int CoInitializeEx [:pointer int])
  )

(defn CoInitialize []
  (.CoInitialize ole32 NULL))
(defn CoInitializeEx [dwCoInit]
  (.CoInitializeEx ole32 NULL dwCoInit))
(defjna Void ole32 CoUninitialize)


